home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility2 / wine02bx.zip / LISP / PRIM / SCREEN.ELC < prev    next >
Text File  |  1993-03-28  |  11KB  |  104 lines
  1. ;;; compiled by @win386 on Sat Mar 13 01:40:02 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/prim/screen.el
  3. ;;; emacs version 19.3 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (provide 'screen)
  14. (defvar select-screen-hook nil "\
  15. Function or functions to run just after a new screen is selected.")
  16. (defvar deselect-screen-hook nil "\
  17. Function or functions to run just before selecting another screen.")
  18. (defvar screen-default-alist nil "\
  19. Alist of default values for screen creation, other than the first one.
  20. These may be set in your init file, like this:
  21.   (setq screen-default-alist '((width . 80) (height . 55)))
  22. For values specific to the first emacs screen, you must use X Resources.")
  23. (defvar minibuffer-alist '((minibuffer . only) (height . 1) (width . 80) (vertical-scroll-bar) (horizontal-scroll-bar) (unsplittable . t)) "\
  24. Alist of switches for the appearance of the detached minibuffer screen.")
  25. (defvar initial-screen-hooks nil "\
  26. Hook to run after initial screen startup.")
  27. (defvar screen-creation-func '-no-window-system-yet- "\
  28. Window-system dependent function for creating new screens.")
  29. (byte-code "└┴Mê┬├Mê─┼Mê╞╟!¼â╚╞╔!¼â╚    ╩╦Mç" [detached-minibuffer-startup #[(window-system-switches) "└    ₧┬    ₧├╟₧¼å╟    ₧C╩₧¼ë╦ ╩    ₧C\"╠₧¼ë╦ ╠    ₧C\" ½ç╦ \"½ç═íê¬à╦    ╬\"½å╧íê¬à╦    ╨\"+!╙╦╘    \"!!ç" [minibuffer screen-default-alist name nil extras screen-names mini-type foreground-color minibuffer-alist window-system-switches background-color append font none ((minibuffer . none)) "*emacs screen*" ((name . "*emacs screen*")) screen-creation-func global-minibuffer-screen select-screen ((minibuffer . none) (name . "*emacs screen*"))] 5] attached-minibuffer-startup #[(window-system-switches) "└    \n!ë!ç" [select-screen screen-creation-func window-system-switches global-minibuffer-screen] 3] multi-minibuffer-startup #[(window-system-switches) "└    \n!!ç" [select-screen screen-creation-func window-system-switches] 3] boundp first-screen-user-positioned nil separate-minibuffer-screen pop-initial-screen #[(window-system-switches) "└    ₧├    ₧¡â─    ₧╞    !ê)╟╚!ç" [minibuffer window-system-switches mini top left first-screen-user-positioned multi-minibuffer-startup run-hooks initial-screen-hooks] 2]] 2)
  30. (defvar new-screen-x-delta 50 "\
  31. Horizontal displacement (in pixels) for position of new screen.")
  32. (defvar new-screen-y-delta 50 "\
  33. Vertical displacement (in pixels) for position of new screen.")
  34. (byte-code "└┴Mê┬├Mê─┼Mê╞╟!¼å╚    P╞╩!¼â╦\n╠═Mê╬╧Mç" [new-screen-position #[(top left width height) "    \\\n \\└ ₧┬ ₧½æ\n½Äí½ê\ní½â «ì╟└B┬BD \"ë,ç" [top new-screen-y-delta left new-screen-x-delta screen-default-alist new-left new-top append] 5] new-screen #[nil "½«┴ ├─\n!₧╞─\n!₧╚\n!    ╩\n! ½É½î╠AA     $ê-!ç" [first-screen-user-positioned selected-screen s top screen-parameters this-top left this-left x-pixel-width this-width x-pixel-height this-height new-screen-position screen-creation-func screen-default-alist] 5] get-screen #[nil "└┴ !┴ Ü½â┬ ç└┴ !ç" [next-screen selected-screen new-screen] 3] boundp icon-name "emacs @ " system-name iconification-data nil iconify-emacs #[nil "½ä┴┬!ê├ ë╞ ╚    ½á@        ╩    !Báê    =¼à╦    !êAë¼`╠═!¼â╚ E╨╤!,ç" [iconification-data error "already iconified?" screen-list screens rest selected-screen me nil screen screen-visible-p make-screen-invisible boundp map-screen-hook screen-icon-title-format icon-name deiconify-emacs iconify-screen] 5 nil nil] deiconify-emacs #[(&optional ignore) "¼ä┴┬!ê@A@AA@ë¡ù@Aë╞=½å╟@@!ê)Aë¼j╚ç" [iconification-data error "not iconified?" screen-icon-title-format map-screen-hook visibility t make-screen-visible nil] 3]] 2)
  35. (fset 'other-window-any-screen #[(n) "└    ┬\"ê├─ !ç" [other-window n t raise-screen selected-screen] 3 "\
  36. Select the ARG'th different window on any screen.
  37. All windows on current screen are arranged in a cyclic order.
  38. This command selects the window ARG steps away in that order.
  39. A negative ARG moves in the opposite order.  However, unlike
  40. `other-window', this command will select a window on the next
  41. (or previous) screen instead of wrapping around to the top
  42. (or bottom) of this screen, when there are no more windows." "p"])
  43. (fset 'single-window-screen #[(&optional screen) "«é┴ ├\n!ë┼ ╞╟#*=ç" [screen selected-screen s screen-selected-window w next-window 0 nil] 6])
  44. (fset 'one-screen #[(&optional screen) "«é┴ ├\n!ë\n=¼ï┼ !ê├\n!ë¬q╞╟\n!!*ç" [screen selected-screen s next-screen this delete-screen delete-other-windows screen-selected-window] 4 "\
  45. Delete all screens but SCREEN (default is current screen).
  46. Also delete all windows but the selected one on SCREEN." nil])
  47. (byte-code "└    ┬├#ê└ ┼╞#ç" [define-key esc-map "o" other-window-any-screen global-map "" iconify-emacs] 4)
  48. (fset 'find-file-new-screen #[(filename) "└    ! ¡â ─!ë½ä╞!ê╟\n!*ç" [find-file-noselect filename buf screen-creation-func nil scr select-screen switch-to-buffer] 3 "\
  49. Just like find-file, but creates a new screen for it first." "FFind file in new screen: "])
  50. (fset 'switch-to-buffer-new-screen #[(buffer) "½å┴┬!!ê├ !ç" [screen-creation-func select-screen nil switch-to-buffer buffer] 3 "\
  51. Just like switch-to-buffer, but creates a new screen for it first." "BSwitch to buffer in new screen: "])
  52. (byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mê╩╦Mê╠═Mê╬╧Mê╨╤Mç" [set-screen-height #[(h) "└ ┬├─└ !\"A┼└  #*ç" [selected-screen screen assoc width screen-parameters set-screen-size h] 4 nil "NHeight: "] set-screen-width #[(w) "└ ┬├─└ !\"A┼└  #*ç" [selected-screen screen assoc height screen-parameters set-screen-size w] 4 nil "NWidth: "] set-default-font #[(font-name) "└┴ ┬ BC\"ç" [modify-screen-parameters selected-screen font font-name] 4 nil "sFont name: "] set-screen-background #[(color-name) "└┴ ┬ BC\"ç" [modify-screen-parameters selected-screen background-color color-name] 4 nil "sColor: "] set-screen-foreground #[(color-name) "└┴ ┬ BC\"ç" [modify-screen-parameters selected-screen foreground-color color-name] 4 nil "sColor: "] set-cursor-color #[(color-name) "└┴ ┬ BC\"ç" [modify-screen-parameters selected-screen cursor-color color-name] 4 nil "sColor: "] set-pointer-color #[(color-name) "└┴ ┬ BC\"ç" [modify-screen-parameters selected-screen mouse-color color-name] 4 nil "sColor: "] set-auto-raise #[(toggle) "└ ┬├─    !\"A╞    ├?BC\"*ç" [selected-screen screen assoc auto-lower screen-parameters bar modify-screen-parameters] 4 nil nil] toggle-auto-lower #[nil "└ ┬├─    !\"A╞    ├?BC\"*ç" [selected-screen screen assoc auto-lower screen-parameters bar modify-screen-parameters] 4 nil nil]] 2)
  53. (defvar auto-raise-screen nil "\
  54. *If true, screens will be raised to the top when selected.
  55. Under X, most ICCCM-compliant window managers will have an option to do this 
  56. for you, but this variable is provided in case you're using a broken WM.")
  57. (defvar auto-lower-screen nil "\
  58. *If true, screens will be lowered to the bottom when no longer selected.
  59. Under X, most ICCCM-compliant window managers will have an option to do this 
  60. for you, but this variable is provided in case you're using a broken WM.")
  61. (fset 'default-select-screen-hook #[nil "¡ä┴┬ !ç" [auto-raise-screen raise-screen selected-screen] 2 "\
  62. Implements the `auto-raise-screen' variable.
  63. For use as the value of `select-screen-hook'."])
  64. (fset 'default-deselect-screen-hook #[nil "¡ä┴┬ !ç" [auto-lower-screen lower-screen selected-screen] 2 "\
  65. Implements the `auto-lower-screen' variable.
  66. For use as the value of `deselect-screen-hook'."])
  67. (byte-code "¼à┴└┬\"ê ¼à┴├─\"ê┴ç" [select-screen-hook add-hook default-select-screen-hook deselect-screen-hook default-deselect-screen-hook] 3)
  68. (defvar get-screen-for-buffer-default-screen-name nil "\
  69. The default screen to select; see doc of `get-screen-for-buffer'.")
  70. (fset 'get-screen-name-for-buffer #[(buffer) "èqê    )ë├N«ü )ç" [buffer major-mode mode screen-name get-screen-for-buffer-default-screen-name] 3])
  71. (fset 'get-screen-for-buffer #[(buffer &optional not-this-window-p on-screen) "«à┴ ┬ =?à╤├ !ë¼à╞ é╨╟N╚N╔ ╩ëë  ╤╥\"╞ ╙╞ \"B╘!½¼@ ╒ !ܽù╓  \"½ë  ╩¬ç BAë¼T ½Ä╫ !ê╪ !ê ¬╟½Æ┘=¼î½¬GW½ó┼B█\"B!╫!ê╪!ê▐ !ê)¬Å╫@!ê╪@!ê@.)ç" [on-screen selected-window minibuffer-window get-screen-name-for-buffer buffer name selected-screen instance-limit screen-defaults screen-list nil already-visible screen matching-screens screens defaults limit sort #[(s1 s2) "└    !½é┬ç├    !¼ä├ !ç└    !?¡ê├ !¡â└ !ç" [screen-totally-visible-p s2 nil screen-visible-p s1] 2] delq symbol-name screen-name get-buffer-window select-screen make-screen-visible 0 screen-creation-func append screen-default-alist sc switch-to-buffer] 7 "\
  72. Select and return a screen in which to display BUFFER.
  73. Normally, the buffer will simply be displayed in the current screen.
  74. But if the symbol naming the major-mode of the buffer has a 'screen-name
  75. property (which should be a symbol), then the buffer will be displayed in
  76. a screen of that name.  If there is no screen of that name, then one is
  77. created.  
  78.  
  79. If the major-mode doesn't have a 'screen-name property, then the screen
  80. named by `get-screen-for-buffer-default-screen-name' will be used.  If
  81. that is nil (the default) then the currently selected screen will used.
  82.  
  83. If the screen-name symbol has an 'instance-limit property (an integer)
  84. then each time a buffer of the mode in question is displayed, a new screen
  85. with that name will be created, until there are `instance-limit' of them.
  86. If instance-limit is 0, then a new screen will be created each time.
  87.  
  88. If a buffer is already displayed in a screen, then `instance-limit' is 
  89. ignored, and that screen is used.
  90.  
  91. If the screen-name symbol has a 'screen-defaults property, then that is
  92. prepended to the `screen-default-alist' when creating a screen for the
  93. first time.
  94.  
  95. This function may be used as the value of `pre-display-buffer-hook', to 
  96. cause the display-buffer function and its callers to exhibit the above
  97. behavior."])
  98. (fset 'show-temp-buffer-in-current-screen #[(buffer) "└┬ !┼ ╞ !=¼ä╟╚!ê     ╩ ╦\"ê╠ ╦\"ê*└ç" [nil pre-display-buffer-function display-buffer buffer window selected-screen window-screen error "display-buffer switched screens on its own!!" minibuffer-scroll-window set-window-start 1 set-window-point] 3 "\
  99. For use as the value of temp-buffer-show-function:
  100. always displays the buffer in the current screen, regardless of the behavior
  101. that would otherwise be introduced by the `pre-display-buffer-function', which
  102. is normally set to `get-screen-for-buffer' (which see.)"])
  103. (byte-code "└┬└ç" [get-screen-for-buffer pre-display-buffer-function show-temp-buffer-in-current-screen temp-buffer-show-function] 1)
  104.